Problema 1 - Checkpoint 1 AD1 UFCG

library(tidyr)
library(dplyr)
library(ggplot2)
library(htmlwidgets)
library(dygraphs)
library(plotly)
dados <- read.csv("../dados/series_from_imdb.csv",encoding="UTF-8")
dados <- dados %>% filter(series_name %in% c("Daredevil", "The Walking Dead", "Prison Break"))
prisonBreak <- dados %>% filter(series_name == "Prison Break")
TWD <- dados %>% filter(series_name == "The Walking Dead")
daredevil <- dados %>% filter(series_name == "Daredevil")

Introdução

Prison Break

Prison Break é uma série de televisão norte-americana de ação e suspense, transmitida originalmente pela Fox desde 29 de agosto de 2005. Em 2015, a Fox anunciou uma quinta temporada contendo 9 episódios, que estreou em 4 de abril de 2017. Considerando as 4 ultimas temporadas, confira as avaliações dos expectadores para os episódios de cada temporada.

d = prisonBreak %>% 
  ggplot(aes(x = season_ep, y = UserRating, color = as.character(season), label = Episode)) + 
  geom_line() + 
  geom_point(size=3)
ggplotly(d, tooltip = "label")

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`

A qualidade das temporadas vem caindo ao longo da série, porém quase todos os episódios são avaliados entre 9 e 8. O episódio 21 “Go”, penultimo da primeira temporada tem a maior avaliação com 9,5. Já o episódio 73 “The Sunshine State”, da 4º temporada detem a menor avaliação com 7,8.

The Walking Dead

The Walking Dead é uma série de televisão dramática e pós-apocalíptica norte-americana, estreou no dia 30 outubro de 2010, no canal de televisão a cabo AMC, nos Estados Unidos. A série possui 7 temporadas finalizadas, confira a avaliação dos expectadores para os episódios de cada temporada.

TWD %>% 
  mutate(temporada = as.character(season)) %>% 
  ggplot(aes(x = season_ep, y = UserRating, color = temporada)) + 
  geom_line() + 
  geom_point()

O 9º episódio “No Way Out”, da 6º temporada se destaca com a maior nota da série com 9,7. A pior avaliação foi atribuida ao 6º episódio “Swear”, da 7º temporada com nota 5,7.

Daredevil

Daredevil é uma websérie americana criada para a Netflix por Drew Goddard que baseia-se no personagem de mesmo nome da Marvel. Veja a avaliação dos expectadores para os episódios de cada temporada.

daredevil %>% 
  mutate(temporada = as.character(season)) %>% 
  ggplot(aes(x = season_ep, y = UserRating, color = temporada)) + 
  geom_line() + 
  geom_point()

Todos os episódios da série estão avaliados entre 8,5 e 9,5. A 2º temporada se destaca com 3 episódios atingindo a maior avaliação, nota 9,5.

Qual série possui uma avaliação melhor no IMDB?

Considerando a mediana e as notas maximas e mínimas dos episódios de cada série, temos:

dados %>% 
    group_by(series_name) %>% 
    summarise(mediana = median(UserRating),
              variancia = var(UserRating))

Daredevil possui a melhor avaliação no IMBD. A série apresenta uma mediana superior e se destaca por possuir 3 episódios atingindo a maior avaliação 9,5. Essas caracteristicas garantiram uma pequena vantagem para as demais, em resumo Daredevil proporcionalmente possui uma quantidade maior de episódios melhor avaliados avaliados.

Qual das séries tem menor regularidade na qualidade dos episódios?

dados %>% 
    ggplot(aes(x = as.character(series_name), y = UserRating)) + 
    geom_boxplot(outlier.color = NA) +   
    geom_jitter(width = .1, size = .5, alpha = .5, color = "blue")

Os boxplots das séries, mostram que The Walking Dead possui maior variância na avaliação de seus episódios. Mesmo considerando a avaliação dos epísódios por temporada, ainda sim The Walking Dead possui maior variância. Isto demonstra que a séria não matém uma regularidade na qualidade de seus episódios, sendo bem mais irregular que Daredevi ou Prison Break.

dados %>% 
    group_by(series_name, season) %>% 
    summarise(variancia = var(UserRating))